home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / T!MATRIX.ZIP / MATRIX.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-12-07  |  16.3 KB  |  534 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     Integer  INTEGER010
  30.     Integer  INTEGER011
  31.     Integer  INTEGER012
  32.     Integer  INTEGER013
  33.     String   STRING001
  34.     String   STRING002
  35.     String   STRING003
  36.     String   STRING004
  37.     String   STRING005
  38.     String   STRING006
  39.     String   STRING007
  40.     String   STRING008
  41.     String   STRING009
  42.     String   STRING010
  43.     String   STRING011
  44.     String   STRING012
  45.     String   STRING013
  46.     String   STRING014
  47.     String   STRING015
  48.     String   STRING016
  49.     String   STRING017
  50.     String   STRING018
  51.     String   STRING019
  52.     String   STRING020
  53.     String   STRING021
  54.     String   STRING022
  55.     String   STRING023
  56.     String   STRING024
  57.     String   STRING025
  58.     String   STRING026
  59.     String   STRING027
  60.     String   STRING028
  61.     String   STRING029
  62.  
  63. ;------------------------------------------------------------------------------
  64.  
  65.     INTEGER003 = "0"
  66.     If (Exist(PPEPath() + "matrix.CFG")) Goto LABEL001
  67.     FCreate 1, PPEPath() + "matrix.cfg", 2, 0
  68.     FPutLn 1, "0"
  69.     FPutLn 1, "NONE"
  70.     FPutLn 1, "c:\pcb\ppe\schat\chat.ppe"
  71.     FPutLn 1, "49 15"
  72.     FPutLn 1, "49 16"
  73.     FPutLn 1, "49 17"
  74.     FPutLn 1, "49 18"
  75.     FPutLn 1, "49 19"
  76.     FPutLn 1, "@X19"
  77.     FPutLn 1, "@X0Bd@X03ah @X0Bn@X03up  @X08-  [            ]"
  78.     FPutLn 1, "MELBOURNE UNDERGROUND RAVERS"
  79.     FPutLn 1, "ISOLATED KIDS CREATIONS"
  80.     FPutLn 1, "SYNTHETIC"
  81.     FPutLn 1, "APOCALYPTIC VISIONS"
  82.     FPutLn 1, "CATCH 22"
  83.     FPutLn 1, ""
  84.     FPutLn 1, "    .---------------------------------------------------------------------."
  85.     FPutLn 1, "    |   xPRESS mOddING ENhANCEd LoGoN mAtRIX     --     trippah dec.96    |"
  86.     FPutLn 1, "    )---------------------------------------------------------------------("
  87.     FPutLn 1, "    | Line 1  --  If `1', it will use LINE2 as the nup. if its `0' no nup |"
  88.     FPutLn 1, "    | Line 2  --  If LINE1 is `1', then this is the nup to be used        |"
  89.     FPutLn 1, "    | Line 3  --  Full path/ppename of your chatter! (must be ppe)        |"
  90.     FPutLn 1, "    | Line 4  --  x/y position of `logon bbs' litebar                     |"
  91.     FPutLn 1, "    | Line 5  --  x/y position of `apply' litebar                         |"
  92.     FPutLn 1, "    | Line 6  --  x/y position of `page op' litebar                       |"
  93.     FPutLn 1, "    | Line 7  --  x/y position of `get nup' litebar                       |"
  94.     FPutLn 1, "    | Line 8  --  x/y position of `logoff' litebar                        |"
  95.     FPutLn 1, "    | Line 9  --  The colour of the litebar!                              |"
  96.     FPutLn 1, "    | Line 10 --  the prompt when entering nup!  (12 chars only!)         |"
  97.     FPutLn 1, "    | Line 11 --  the 1st definition in `get the nup'                     |"
  98.     FPutLn 1, "    | Line 12 --  the 2nd definition in `get the nup'                     |"
  99.     FPutLn 1, "    | Line 13 --  the 3rd definition in `get the nup'                     |"
  100.     FPutLn 1, "    | Line 14 --  the 4th definition in `get the nup'                     |"
  101.     FPutLn 1, "    | Line 15 --  the 5th definition in `get the nup'                     |"
  102.     FPutLn 1, "    `---------------------------------------------------------------------'"
  103.     FPutLn 1, ""
  104.     FClose 1
  105.     :LABEL001
  106.     FOpen 1, PPEPath() + "matrix.CFG", 0, 2
  107.     FGet 1, BOOLEAN001
  108.     FGet 1, STRING001
  109.     FGet 1, STRING002
  110.     FGet 1, STRING018
  111.     FGet 1, STRING019
  112.     FGet 1, STRING020
  113.     FGet 1, STRING021
  114.     FGet 1, STRING022
  115.     FGet 1, STRING023
  116.     FGet 1, STRING024
  117.     FGet 1, STRING025
  118.     FGet 1, STRING026
  119.     FGet 1, STRING027
  120.     FGet 1, STRING028
  121.     FGet 1, STRING029
  122.     FClose 1
  123.     Tokenize STRING018
  124.     INTEGER004 = GetToken()
  125.     INTEGER005 = GetToken()
  126.     Tokenize STRING019
  127.     INTEGER006 = GetToken()
  128.     INTEGER007 = GetToken()
  129.     Tokenize STRING020
  130.     INTEGER008 = GetToken()
  131.     INTEGER009 = GetToken()
  132.     Tokenize STRING021
  133.     INTEGER010 = GetToken()
  134.     INTEGER011 = GetToken()
  135.     Tokenize STRING022
  136.     INTEGER012 = GetToken()
  137.     INTEGER013 = GetToken()
  138.     :LABEL002
  139.     If (!Exist(PPEPath() + "matrix.pcb")) FCreate 2, PPEPath() + "matrix.pcb", 2, 0
  140.     FPutLn 2, "@X0F                                                  @X0B      @X07                       "
  141.     FPutLn 2, "            @X0B     @X08a@X03$@X0B$a       @X03.a@X0BSa                       @X08        @X03;$$$@X0B$@X0F²@X08         @X07 "
  142.     FPutLn 2, "@X0B  @X03$@X0B$$$      @X03$@X0B$@X0F$$@X0B @X08`²²@X0B'  @X03$@X0B$$@X0F$²@X08$@X03$$@X0B$  @X03$@X0B$$@X0F$%@X03a@X0Bsa. @X03.a@X0BR$@X0F²²@X0B$@X0Fa@X0B,  @X08      .$$$@X03$@X0B$@X0FP@X08          @X07 "
  143.     FPutLn 2, "@X08²@X03²$$$@X0BS@X0F²@X03S$@X0B$$²@X08$@X03S$@X0F$@X0B @X03$$@X0B$$  @X03$$$@X0F$@X0B @X08$$@X03$@X0B$  @X08$@X03$$@X0FS@X0B @X03$$@X0B$$ @X08$@X03$$@X0B$  @X03$$@X0B$l @X08      l$$$@X0B$as@X0F.@X08 @X0F.@X08       @X07 "
  144.     FPutLn 2, "@X0B  @X08$@X03$$@X0B$ @X08$@X03$$@X0B$ @X08$@X03$$@X0B$ @X08$@X03$$@X0B$  @X08$@X03$$@X0B$ @X08²@X03²@X0B²²  @X08$@X03$$@X0B$ @X08$@X03$$@X0B$ @X08^ @X03^@X0B$  @X08$@X03$@X0B$$ @X08      l$$$@X03$&@X0B%@X0F:@X08         @X07 "
  145.     FPutLn 2, "@X0B  @X08$@X03$$@X0B$ @X08$$@X03$@X0B$ @X08^@X03 ^@X0B$ @X08$@X03$$@X0B$  @X08$@X03$$@X0B$  @X08$@X03$@X0B$$ @X08$$@X03$@X0B$ @X08$$@X03$@X0B$ @X08by@X03d@X0B$  @X08$@X03$$@X0Bl @X08      $$$$@X03$@X0B$@X0F$@X08          @X07 "
  146.     FPutLn 2, "@X0B  @X08$$$@X0B$ @X08²@X03²@X0B²² @X08by@X03d@X0B$ @X08$$@X03$@X0BS²@X08²S$@X03$@X0B$²@X08²$$@X03$@X0B$²@X08$$@X03$@X0B$ @X08²²@X03²@X0B²²@X08²½$@X0B$@X08aa$½@X0B²  @X08 .@X03s@X08ar$$SSS@X03$$@X0B$Sb@X0Fas.@X08     @X07 "
  147.     FPutLn 2, "micro.funk!@X0B @X08²²²@X0B²@X03 @X08²²@X03²@X0B²  @X08²²@X03²@X0B²       @X08²²²@X0B²                 @X08   ²@X03½@X08S$$S$$S@X03$@X0BS@X0F½²@X08       @X07 "
  148.     FPutLn 2, "ascii @X0F-- @X07trippah @X0B @X03.@X0Br@X0Fa.@X0B                @X03.a@X0FrS@X0B @X07      @X0B @X07     @X08     `@X03½@X08S$$@X03$$@X0B$@X0F½²@X08        @X07 "
  149.     FPutLn 2, "  @X03$@X0B$@X0F$$²@X03$$@X0B$$ @X03$@X0B$$$  @X03$SS@X0F$@X0B @X03$@X0B$$$      @X03.a@X0BRS @X08$@X03$$@X0F$@X0B @X07      @X0B @X07     @X08       @X03²½$@X0B$$@X0F½'@X08         @X07 "
  150.     FPutLn 2, "  @X08$@X03$$@X0FS@X0B @X08S@X03$$@X0B$ @X03$$$@X0B$  @X08$@X03$S@X0B$ @X03$$$@X0B$²@X03$$@X0FSa@X0B @X03S$$@X0BS @X08$@X03$$@X0BS @X07 @X08▄■▀@X78▓@X07▀@X08▀@X07▀▀▀▀@X0F▀▀@X07▀@X7F░@X0F▀▀■▄@X07 @X08 @X0B²@X0F½²@X08           @X07 "
  151.     FPutLn 2, "  @X08$@X03$$@X0B$ @X08%$@X03$@X0B$ @X08$@X03$@X08$@X0B$  @X08$@X03$$@X0B$ @X08$@X03$$@X0B$ @X03^ l@X0F$@X0B @X08$@X03$$@X0B$½@X08²²@X03²@X0B  @X08▐@X07▌@X4Clogon░initiated!@X07▐@X0F▌@X0B    @X07            "
  152.     FPutLn 2, "  @X08S@X03$$@X0BS      @X08$@X03$@X08$@X0B$  @X08$@X03$$@X0B$ @X08$@X03$$@X0B$ @X03lyl@X0B$ @X08$@X03$$@X0B$ $@X03$@X0BS@X0Fa@X08 ▀▓@X7F▀@X0F█▀▀@X07▀█▀@X0F▀@X07██▀@X0F▀▓▀@X07▀▀▀@X0F▀▀@X78▓  @X0F▀█▀▀▀@X7F▓▓@X0F█▀ ▀@X07 "
  153.     FPutLn 2, "  @X08$$@X03S@X0Ba@X03²@X0B²@X0F²@X0B  @X08²S@X03$@X08$@X0B$²@X08²²²@X03²@X0B² @X08$$@X03$@X0B$ @X08$@X03$$@X0B$ @X08$@X03$@X08$@X0B$ @X08$@X03$$@X0F$@X0B @X07 @X08▐@X78▌@X7F▓@X0F▌@X07               @X0B    @X07    @X08▐@X7F░▓@X0F▌@X07    "
  154.     FPutLn 2, "@X0B  @X08²²@X03²@X0B²      @X08²²@X03²@X0B²       @X08½²²@X0B² @X08S$@X03$@X0B$ @X08½@X03$@X08½@X0B½ @X08$@X03$$@X0B$ @X07 @X70█@X78▓@X07█@X7F▓@X07               @X0B   @X07     @X70█@X78▌@X7F▐@X0F█@X08 @X07   "
  155.     FPutLn 2, "@X0B @X07if this is your first call@X0B @X08²²@X03²@X0B½      @X08l$@X03$@X0B$ @X07 @X08▐@X78▌@X07█@X0F▌@X0B  @X07 @X0B       @X07 @X0B @X07 @X0B     @X07     @X08▐@X78▌@X7F▐@X0F▌@X07    "
  156.     FPutLn 2, "@X0B @X07choose @X0Fapply for axx@X07 and fill out@X0B     @X08²½@X0B$@X07  @X70█@X78▓░@X7F▓@X07 @X0B @X07 @X0B       @X07 @X0B @X07 @X0B     @X07    @X08 █@X78░@X7F▐@X08 @X07    "
  157.     FPutLn 2, "@X0B @X07the required information to gain access.   @X70█@X08▐@X78▌@X7F▐@X0F▌@X0B @X07 @X0B       @X07 @X0B @X07 @X0B      @X07   @X08▐@X78▌░@X0F▌@X07     "
  158.     FPutLn 2, "@X0B @X07                                           @X70█@X78▓░@X7F▐@X0B  @X07 @X0B       @X07 @X0B @X07 @X0B      @X07   @X08█@X78▒░@X7F▐@X07     "
  159.     FPutLn 2, "@X0B @X07                                         @X08 @X0B @X08▐@X78▌@X7F @X0F▌@X0B          @X07 @X0B @X07 @X0B      @X07   @X08▐@X78▓░@X7F▐@X0F▌@X07    "
  160.     FPutLn 2, "@X0B @X07                   @X0B                       @X08▄▓@X07██▄@X70███@X0F▄@X70█@X08▄@X07▄@X70███@X07  @X70█████@X07▄@X08▄@X70██@X08▄▄▐@X78▌ @X7F█@X0F▌▄@X07  "
  161.     FPutLn 2, "@X0B @X07                   @X0B                     @X0F @X08▀▀▀▀▓@X07▀@X08▀▀@X07▀▀@X08▀@X07▀@X08▀@X07▀▀▀▀▀▀▓▀▀@X08▀@X07▀▀@X08▀▀@X07▀@X08▀▀▀▀@X07▀@X0F▀▀▀@X07 "
  162.     FClose 2
  163.     STRING003 = "@X08 " + STRING023 + " Logon dah System!  @X08 "
  164.     STRING004 = "@X08 " + STRING023 + " Apply for Axx!     @X08 "
  165.     STRING005 = "@X08 " + STRING023 + " Page dah Local Op! @X08 "
  166.     STRING006 = "@X08 " + STRING023 + " Get dah NUP!       @X08 "
  167.     STRING007 = "@X08 " + STRING023 + " Logoff!            @X08 "
  168.     Print "@CLS@@POFF@"
  169.     DispFile PPEPath() + "matrix.pcb", 1
  170.     If (INTEGER002 == "0") Goto LABEL003
  171.     If (INTEGER002 == "1") Goto LABEL005
  172.     If (INTEGER002 == "2") Goto LABEL007
  173.     If (INTEGER002 == "3") Goto LABEL009
  174.     :LABEL003
  175.     AnsiPos INTEGER004, INTEGER005
  176.     Print STRING003
  177.     AnsiPos INTEGER006, INTEGER007
  178.     Print "@X08" + StripAtx(STRING004)
  179.     AnsiPos INTEGER008, INTEGER009
  180.     Print "@X08" + StripAtx(STRING005)
  181.     AnsiPos INTEGER010, INTEGER011
  182.     Print "@X08" + StripAtx(STRING006)
  183.     AnsiPos INTEGER012, INTEGER013
  184.     Print "@X08" + StripAtx(STRING007)
  185.     AnsiPos 1, 1
  186.     Color 0
  187.     Print " "
  188.     Backup 1
  189.     :LABEL004
  190.     STRING008 = ""
  191.     While ((STRING008 == "")) STRING008 = Inkey()
  192.     If (STRING008 == Chr(13)) Goto LABEL013
  193.     If ((STRING008 == "DOWN") || (STRING008 == "2")) Goto LABEL005
  194.     If ((STRING008 == "UP") || (STRING008 == "8")) Goto LABEL011
  195.     STRING008 = ""
  196.     Goto LABEL004
  197.     :LABEL005
  198.     AnsiPos INTEGER004, INTEGER005
  199.     Print "@X08" + StripAtx(STRING003)
  200.     AnsiPos INTEGER006, INTEGER007
  201.     Print STRING004
  202.     AnsiPos INTEGER008, INTEGER009
  203.     Print "@X08" + StripAtx(STRING005)
  204.     AnsiPos INTEGER010, INTEGER011
  205.     Print "@X08" + StripAtx(STRING006)
  206.     AnsiPos INTEGER012, INTEGER013
  207.     Print "@X08" + StripAtx(STRING007)
  208.     AnsiPos 1, 1
  209.     Color 0
  210.     Print " "
  211.     Backup 1
  212.     :LABEL006
  213.     STRING008 = ""
  214.     While ((STRING008 == "")) STRING008 = Inkey()
  215.     If (STRING008 == Chr(13)) Goto LABEL014
  216.     If ((STRING008 == "DOWN") || (STRING008 == "2")) Goto LABEL007
  217.     If ((STRING008 == "UP") || (STRING008 == "8")) Goto LABEL003
  218.     STRING008 = ""
  219.     Goto LABEL006
  220.     :LABEL007
  221.     AnsiPos INTEGER004, INTEGER005
  222.     Print "@X08" + StripAtx(STRING003)
  223.     AnsiPos INTEGER012, INTEGER013
  224.     Print "@X08" + StripAtx(STRING007)
  225.     AnsiPos INTEGER006, INTEGER007
  226.     Print "@X08" + StripAtx(STRING004)
  227.     AnsiPos INTEGER008, INTEGER009
  228.     Print STRING005
  229.     AnsiPos INTEGER010, INTEGER011
  230.     Print "@X08" + StripAtx(STRING006)
  231.     AnsiPos 1, 1
  232.     Color 0
  233.     Print " "
  234.     Backup 1
  235.     :LABEL008
  236.     STRING008 = ""
  237.     While ((STRING008 == "")) STRING008 = Inkey()
  238.     If (STRING008 == Chr(13)) Goto LABEL018
  239.     If ((STRING008 == "DOWN") || (STRING008 == "2")) Goto LABEL009
  240.     If ((STRING008 == "UP") || (STRING008 == "8")) Goto LABEL005
  241.     STRING008 = ""
  242.     Goto LABEL008
  243.     :LABEL009
  244.     AnsiPos INTEGER004, INTEGER005
  245.     Print "@X08" + StripAtx(STRING003)
  246.     AnsiPos INTEGER006, INTEGER007
  247.     Print "@X08" + StripAtx(STRING004)
  248.     AnsiPos INTEGER008, INTEGER009
  249.     Print "@X08" + StripAtx(STRING005)
  250.     AnsiPos INTEGER010, INTEGER011
  251.     Print STRING006
  252.     AnsiPos INTEGER012, INTEGER013
  253.     Print "@X08" + StripAtx(STRING007)
  254.     AnsiPos 1, 1
  255.     Color 0
  256.     Print " "
  257.     Backup 1
  258.     :LABEL010
  259.     STRING008 = ""
  260.     While ((STRING008 == "")) STRING008 = Inkey()
  261.     If (STRING008 == Chr(13)) Goto LABEL019
  262.     If ((STRING008 == "DOWN") || (STRING008 == "2")) Goto LABEL011
  263.     If ((STRING008 == "UP") || (STRING008 == "8")) Goto LABEL007
  264.     Goto LABEL010
  265.     :LABEL011
  266.     AnsiPos INTEGER004, INTEGER005
  267.     Print "@X08" + StripAtx(STRING003)
  268.     AnsiPos INTEGER006, INTEGER007
  269.     Print "@X08" + StripAtx(STRING004)
  270.     AnsiPos INTEGER008, INTEGER009
  271.     Print "@X08" + StripAtx(STRING005)
  272.     AnsiPos INTEGER010, INTEGER011
  273.     Print "@X08" + StripAtx(STRING006)
  274.     AnsiPos INTEGER012, INTEGER013
  275.     Print STRING007
  276.     AnsiPos 1, 1
  277.     Color 0
  278.     Print " "
  279.     Backup 1
  280.     :LABEL012
  281.     STRING008 = ""
  282.     While ((STRING008 == "")) STRING008 = Inkey()
  283.     If (STRING008 == Chr(13)) Goto LABEL020
  284.     If ((STRING008 == "DOWN") || (STRING008 == "2")) Goto LABEL003
  285.     If ((STRING008 == "UP") || (STRING008 == "8")) Goto LABEL009
  286.     Goto LABEL012
  287.     :LABEL013
  288.     INTEGER002 = "0"
  289.     Print "@CLS@@POFF@"
  290.     End
  291.     :LABEL014
  292.     INTEGER002 = "1"
  293.     Print "@CLS@"
  294.     If (BOOLEAN001) Then
  295.         INTEGER001 = "3"
  296.         :LABEL015
  297.         Print STRING024
  298.         AnsiPos 14, 1
  299.         Color 7
  300.         InputStr "_", STRING009, 0, 12, Mask_Ascii() + Mask_Num(), 8
  301.         If (STRING009 == " ") Goto LABEL015
  302.         If ((Upper(STRING009) == Upper(STRING001)) || (Upper(STRING001) == Upper(STRING009))) Goto LABEL016
  303.         INTEGER001 = INTEGER001 - 1
  304.         If (INTEGER001 < "0") AnsiPos 1, 22
  305.         Hangup
  306.         AnsiPos 30, 1
  307.         STRING010 = INTEGER001
  308.         Print "@X04bzzz! @X0C" + STRING010 + "@X04 tries left..."
  309.         AnsiPos 14, 1
  310.         Print Space(12)
  311.         AnsiPos 1, 1
  312.         Goto LABEL015
  313.         :LABEL016
  314.         AnsiPos 30, 1
  315.         Print Space(21)
  316.         Backup 21
  317.         Print "@X0FCorrect!"
  318.         Delay 2
  319.         Goto LABEL017
  320.     Endif
  321.     :LABEL017
  322.     AnsiPos 1, 3
  323.     Print "@X0DY@X05our @X0Dh@X05andle  @X08-  [                         ]"
  324.     Backup 26
  325.     InputStr "_", STRING011, 0, 25, Mask_Ascii(), 8
  326.     If (STRING011 == "") Goto LABEL017
  327.     INTEGER001 = "1"
  328.     GetAltUser 1
  329.     While (U_RecNum(U_Name()) == INTEGER001) Do
  330.         While (((U_Name() == STRING011) || (U_Alias == STRING011))) AnsiPos 46, 3
  331.         Print "@X08name already in use!"
  332.         Delay 10
  333.         AnsiPos 46, 3
  334.         Print Space(20)
  335.         AnsiPos 1, 46
  336.         Print Space(20)
  337.         Goto LABEL017
  338.         Inc INTEGER001
  339.         GetAltUser INTEGER001
  340.     EndWhile
  341.     KbdStuff STRING011 + Chr(13) + "C" + Chr(13)
  342.     End
  343.     :LABEL018
  344.     INTEGER002 = "2"
  345.     AnsiPos 1, 22
  346.     Call STRING002
  347.     Goto LABEL002
  348.     :LABEL019
  349.     INTEGER002 = "3"
  350.     While (!BOOLEAN001) Print "@CLS@"
  351.     Print "@X0Bn@X03up @X0Bi@X03s @X0Bd@X03isabled @X0Bm@X03an!"
  352.     Delay 20
  353.     Goto LABEL002
  354.     Print "@CLS@@POFF@"
  355.     INTEGER002 = "0"
  356.     If (!Exist(PPEPath() + "getup.pcb")) FCreate 3, PPEPath() + "getnup.pcb", 2, 0
  357.     FPutLn 3, "@CLS@@POFF@@X08---░----------@X07                                                      "
  358.     FPutLn 3, " @X03g@X0Bet @X03t@X0Bhe @X03n@X0Bup!@X07                                                                  "
  359.     FPutLn 3, "@X08--------░-----@X07                                                                 "
  360.     FPutLn 3, "                                                                               "
  361.     FPutLn 3, "@X08─│───────────────────────────────────────────────────────────────────────────│─@X07"
  362.     FPutLn 3, " @X08│@X4C define the following..  you must get at least 3 correct to gain the nup!  @X08│@X07 "
  363.     FPutLn 3, "@X08─│───────────────────────────────────────────────────────────────────────────│─@X07"
  364.     FPutLn 3, " @X08│@X07     @X0BMur@X07  @X08-@X07 @X08[@X07                                                   @X08]@X07          @X08│@X07 "
  365.     FPutLn 3, " @X08│@X07     @X0BiKC@X07  @X08-@X07 @X08[@X07                                                   @X08]@X07          @X08│@X07 "
  366.     FPutLn 3, " @X08│@X07     @X0BSC@X07   @X08-@X07 @X08[@X07                                                   @X08]@X07          @X08│@X07 "
  367.     FPutLn 3, " @X08│@X07     @X0BAV @X07  @X08-@X07 @X08[@X07                                                   @X08]@X07          @X08│@X07 "
  368.     FPutLn 3, " @X08│@X07     @X0Bc22@X07  @X08-@X07 @X08[@X07                                                   @X08]@X07          @X08│@X07 "
  369.     FPutLn 3, "@X08─│───────────────────────────────────────────────────────────────────────────│─@X07"
  370.     FClose 3
  371.     STRING012 = ""
  372.     STRING013 = ""
  373.     STRING014 = ""
  374.     STRING015 = ""
  375.     STRING016 = ""
  376.     DispFile PPEPath() + "GETNUP.PCB", 1
  377.     AnsiPos 16, 8
  378.     Color 3
  379.     While ((STRING012 == "")) InputStr "_", STRING012, 0, 51, Mask_Ascii() + Mask_Num(), 8
  380.     AnsiPos 16, 9
  381.     Color 3
  382.     While ((STRING013 == "")) InputStr "_", STRING013, 0, 51, Mask_Ascii() + Mask_Num(), 8
  383.     AnsiPos 16, 10
  384.     Color 3
  385.     While ((STRING014 == "")) InputStr "_", STRING014, 0, 51, Mask_Ascii() + Mask_Num(), 8
  386.     AnsiPos 16, 11
  387.     Color 3
  388.     While ((STRING015 == "")) InputStr "_", STRING015, 0, 51, Mask_Ascii() + Mask_Num(), 8
  389.     AnsiPos 16, 12
  390.     Color 3
  391.     InputStr "_", STRING016, 0, 51, Mask_Ascii() + Mask_Num(), 8
  392.     If (Upper(STRING012) == Upper(STRING025)) Inc INTEGER002
  393.     If (Upper((STRING013 == Upper(STRING026)))) Inc INTEGER002
  394.     If (Upper((STRING014 == Upper(STRING027)))) Inc INTEGER002
  395.     If (Upper((STRING015 == Upper(STRING028)))) Inc INTEGER002
  396.     If (Upper((STRING016 == Upper(STRING029)))) Inc INTEGER002
  397.     AnsiPos 3, 15
  398.     STRING017 = INTEGER002
  399.     PrintLn "@X03you got @X0B" + STRING017 + "@X03 correct!"
  400.     While ((INTEGER002 > "3")) If (!Exist(PPEPath() + "getnup.log")) Gosub LABEL021
  401.     FAppend 4, PPEPath() + "getnup.log", 2, 0
  402.     FPutLn 4, "------[user gets the nup at " + String(Time()) + " on the " + String(Date()) + "]-----"
  403.     FPutLn 4, "-- user got " + STRING017 + " correct!"
  404.     FPutLn 4, ""
  405.     FClose 4
  406.     PrintLn "  @X07The nup to this board is @X0F" + STRING001
  407.     PrintLn ""
  408.     Wait
  409.     Goto LABEL002
  410.     If (!Exist(PPEPath() + "getnup.log")) Gosub LABEL022
  411.     FAppend 4, PPEPath() + "getnup.log", 2, 0
  412.     FPutLn 4, "------[user couldnt get the nup at " + String(Time()) + " on the " + String(Date()) + "]-----"
  413.     FPutLn 4, "-- user got " + STRING017 + " correct!"
  414.     FPutLn 4, ""
  415.     FClose 4
  416.     PrintLn "@X04nar.. your a lame ass!"
  417.     PrintLn ""
  418.     Wait
  419.     Goto LABEL002
  420.     :LABEL020
  421.     AnsiPos 1, 22
  422.     Hangup
  423.     End
  424.     :LABEL021
  425.     FCreate 3, PPEPath() + "getnup.log", 2, 0
  426.     FPutLn 3, "-----░---------------------------░░------"
  427.     FPutLn 3, " xPRESS PCBoard mAtRIX get nup log file! "
  428.     FPutLn 3, "----------------░------------------------"
  429.     FPutLn 3, ""
  430.     FClose 3
  431.     Return
  432.     :LABEL022
  433.     FCreate 3, PPEPath() + "getnup.log", 2, 0
  434.     FPutLn 3, "-----░---------------------------░░------"
  435.     FPutLn 3, " xPRESS PCBoard mAtRIX get nup log file! "
  436.     FPutLn 3, "----------------░------------------------"
  437.     FPutLn 3, ""
  438.     FClose 3
  439.     Return
  440.  
  441. ;------------------------------------------------------------------------------
  442. ;
  443. ; Usage report (before postprocessing)
  444. ;
  445. ; ■ Statements used :
  446. ;
  447. ;    3       End
  448. ;    2       Wait
  449. ;    11      Color 
  450. ;    59      Goto 
  451. ;    44      Let 
  452. ;    45      Print 
  453. ;    5       PrintLn 
  454. ;    47      If 
  455. ;    2       DispFile 
  456. ;    5       FCreate 
  457. ;    1       FOpen 
  458. ;    2       FAppend 
  459. ;    8       FClose 
  460. ;    15      FGet 
  461. ;    85      FPutLn 
  462. ;    2       Hangup
  463. ;    7       InputStr 
  464. ;    2       Gosub 
  465. ;    2       Return
  466. ;    3       Delay 
  467. ;    6       Inc 
  468. ;    5       Tokenize 
  469. ;    1       KbdStuff 
  470. ;    1       Call 
  471. ;    48      AnsiPos 
  472. ;    7       Backup 
  473. ;    2       GetAltUser 
  474. ;
  475. ;
  476. ; ■ Functions used :
  477. ;
  478. ;    71      +
  479. ;    1       -
  480. ;    50      ==
  481. ;    1       <
  482. ;    1       >
  483. ;    7       !
  484. ;    12      ||
  485. ;    14      Upper()
  486. ;    4       Space()
  487. ;    7       Chr()
  488. ;    2       Date()
  489. ;    2       Time()
  490. ;    2       U_Name()
  491. ;    20      StripAtx()
  492. ;    5       Inkey()
  493. ;    4       String()
  494. ;    6       Mask_Num()
  495. ;    7       Mask_Ascii()
  496. ;    15      PPEPath()
  497. ;    10      GetToken()
  498. ;    5       Exist()
  499. ;    1       U_RecNum()
  500. ;
  501. ;------------------------------------------------------------------------------
  502. ;
  503. ; Analysis flags : RBC
  504. ;
  505. ; R - Read user ■ 5
  506. ;     User records are read, this may signify that someone wants to get
  507. ;     various informations about a user (for example his password), but
  508. ;     this may also be normal for a program accessing user records (for
  509. ;     example a User Editor)
  510. ;     ■ Search for : GETALTUSER
  511. ;
  512. ; B - Brute hangup ■ 1
  513. ;     Program hangup without notification. This may be a good way to
  514. ;     disconnect a user, but if used randomly, may be very nasty
  515. ;     ■ Search for : HANGUP, DTROFF
  516. ;
  517. ; C - Call child PPE ■ 3
  518. ;     This is usually normal, but may be a tricky way to launch some
  519. ;     sysop-only commands.
  520. ;     ■ Search for : CALL
  521. ;
  522. ;------------------------------------------------------------------------------
  523. ;
  524. ; Postprocessing report
  525. ;
  526. ;    0       For/Next
  527. ;    1       While/EndWhile
  528. ;    1       If/Then or If/Then/Else
  529. ;    0       Select Case
  530. ;
  531. ;------------------------------------------------------------------------------
  532. ;                 AEGiS Corp - Break the routines, code against the machines!
  533. ;------------------------------------------------------------------------------
  534.